//===== eAthena Script ========================================
//= Izlude Arena Room
//===== By: ==================================================
//= SinSloth
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= Any Athena Version
//===== Description: =========================================
//= Izlude Battle Arena Main Room
//===== Additional Comments: =================================
//= 1.0 First version.
//= 1.1 Fixed a small reward typo (was giving potato.) [L0ne_W0lf]
//============================================================

arena_room,94,93,5	script	b}ťq	97,{
	mes "[b}ťq]";
	mes "Pɶ԰! wӨArena@ɡA";
	mes "ڬOtdгo̪b}ťq";
	next;
	mes "[b}ťq]";
	mes "ðݪܾ޻a";
	while(1) {
		next;
		switch( select( "nDArena?:ArenaIƬO?:dArenaI:" ) ){
		case 1:
			mes "[b}ťq]";
			mes "Arenai^3131FFӤHDԼҦ^000000 ^3131FFնDԼҦ^000000 ";
			next;
			mes "[b}ťq]";
			mes "^3131FFӤHDԼҦ^000000 Lv50/ Lv60/ Lv70/ Lv80 HWҦA";
			mes "^3131FFնDԼҦ^0000005H@լDԪ覡.";
			next;
			mes "[b}ťq]";
			mes "fVAbUж|UŧOArena NPC}]ѫǡA";
			mes "iJѫǸ̵y@UAYiӶǨϥArena";
			break;
		case 2:
			mes "[b}ťq]";
			mes "ڨӻ^3131FFArenaI^000000eA";
			mes "ArenaIƬO DԦUصŧOArenaɩҵoArenaIơA̦hiֿn3UI";
			next;
			mes "[b}ťq]";
			mes "ɶWLӵLk\ɡA]|oArenaIơALu|oֶqIƳ";
			next;
			mes "[b}ťq]";
			mes "ArenaIƪϥΡA";
			mes "ثebǳƩӬҦ";
			break;
		case 3:
			mes "[b}ťq]";
			mes "bd"+strcharinfo(0)+"/pjArenaI";
			next;
			mes "[b}ťq]";
			mes ""+strcharinfo(0)+"/pjҾ֦ArenaIƬO..^3131FF"+arena_point+"^000000I";
			next;
			mes "[b}ťq]";
			mes "ArenaIƪϥΤ覡AаѦҤW@ܰϪ'^3131FFArenaIƬO^000000̪";
			break;
		case 4:
			mes "[b}ťq]";
			mes "򯬱zӴr֪ɶ";
			close;
		}
		next;
		mes "[b}ťq]";
		mes "٦Lðݶ?";
	}

Onlinerec_50:
	mapannounce "arena_room",""+$arena_50topn$+" has renewed the top record in the Arena Time Force Battle level 50. Congratulations!",0;
	end;
	
Onlinerec_60:
	mapannounce "arena_room",""+$arena_60topn$+" has renewed the top record in the Arena Time Force Battle level 60. Congratulations!",0;
	end;
	
Onlinerec_70:
	mapannounce "arena_room",""+$arena_70topn$+" has renewed the top record in the Arena Time Force Battle level 70. Congratulations!",0;
	end;
Onlinerec_80:
	mapannounce "arena_room",""+$arena_80topn$+" has renewed the top record in the Arena Time Force Battle level 80. Congratulations!",0;
	end;
	
Onlinerec_pt:
	mapannounce "arena_room","Party "+$arena_pttopn$+" has renewed the top record in the Arena Time Force Battle. Congratulations!",0;
	end;

//OnCommand: "linerec_vs"
// var vs_winner = GetGlobalStr "040611_arn_vstopn"
// broadcastinmap "Party "+vs_winner+" has renewed the top record in the Arena Time Force Battle. Congratulations!"
// end;

}

arena_room,105,82,5	script	ArenaOtdH	57,{
	mes "[Y]";
	mes "znA";
	mes "ڬO޲z/ЦUArenaY";
	next;
	mes "[Y]";
	mes "QnDФUU̵uihWr?";
	mes "пܷQndߪҦ";
	next;
	switch( select( "ӤHLV5069:ӤHLV6079:ӤHLV7089:ӤHLV8099:")) {
	case 1:
		mes "[Y]";
		mes "ثeӤHLV5069Ĥ@WO";
		mes "^3131FF"+$arena_50topn$+"^000000/pj";
		mes "O^3131FF"+$top_50min+"^000000^3131FF"+$top_50sec+"^000000";
		close;
	case 2:
		mes "[Y]";
		mes "ثeӤHLV6079Ĥ@WO";
		mes "^3131FF"+$arena_60topn$+"^000000/pj";
		mes "O^3131FF"+$top_60min+"^000000^3131FF"+$top_60sec+"^000000";
		close;
	case 3:
		mes "[Y]";
		mes "ثeӤHLV7089Ĥ@WO";
		mes "^3131FF"+$arena_70topn$+"^000000/pj";
		mes "O^3131FF"+$top_70min+"^000000^3131FF"+$top_70sec+"^000000";
		close;
	case 4:
		mes "[Y]";
		mes "ثeӤHLV8099Ĥ@WO";
		mes "^3131FF"+$arena_80topn$+"^000000/pj";
		mes "O^3131FF"+$top_80min+"^000000^3131FF"+$top_80sec+"^000000";
		close;
	case 5:
		mes "[Y]";
		mes "ثeԲĤ@WO";
		mes "^3131FF"+$arena_pttopn$+"^000000";
		mes "O^3131FF"+$top_ptmin+"^000000^3131FF"+$top_ptsec+"^000000";
		close;
	}
}

arena_room,68,135,3	script	AȤH 	726,{
	mes "[]";
	mes "w!";
	mes "ӤH LV5069 v޳";
	mes "ڨӬzѻӽл!";
	next;
	mes "[]";
	mes "^3131FF ӤHLV5069 ^000000 O";
	mes "^FF0000  50^000000  ^FF0000  69^000000 iHѥ[";
	next;
	mes "[]";
	mes "ѰǪaaӧC";
	mes "Fbv޳WQo";
	mes "ӳ]ߵŭCн̸!";
	next;
	mes "[]";
	mes "ӤH԰ѥ[OάO 1000 zeny ";
	next;
	mes "[]";
	mes "v޳ike!";
	mes "Ԧܽ";
	next;
	mes "[]";
	mes "[JǶ^3131FF ѫǡ@";
	mes "еݦۤw ^000000";
	mes "ۤwǪܡA|۰ʩv޳";
	mes "ʦܳa!";
	next;
	mes "[]";
	mes "iJv޳åB}l˼ƭp";
	mes "DH^3131FF S ^000000A|L";
	mes "Ш̷ӱҫL";
	next;
	mes "[]";
	mes "^3131FF 5 ^000000";
	mes "oӮɶ@ؼЪܡAɶ";
	mes "oOD`n";
	next;
	mes "[]";
	mes "˳̫᪺BOSS";
	mes "^3131FF \ ^000000 |۰ʲʨUӳa";
	mes "^3131FF \ ^000000 u1iHO";
	mes "pGSbɭO@˷|QeX";
	mes "|۰}!";
	next;
	mes "[]";
	mes "bǱv޳I";
	mes "pGSpAv]|";
	mes "z1IIƷ@v!";
	next;
	mes "[]";
	mes "HWAӤH LV5069 n!";
	mes "ߧYѥ[v޳";
	mes "ssOAUөBNOA!";
	close;
}

arena_room,41,93,5	script	AȤH 	750,{
	mes "[]";
	mes "w{!";
	mes "ӤH LV6079 v޳";
	mes "ڨӬzѻӽл!";
	next;
	mes "[]";
	mes "^3131FF ӤHLV6079 ^000000 O";
	mes "^FF0000 60 ^000000  ^FF0000 79 ^000000 iHѥ[";
	next;
	mes "[]";
	mes "ѰǪaaӧC";
	mes "Fbv޳WQo";
	mes "ӳ]ߵŭ";
	mes "н̸!";
	next;
	mes "[]";
	mes "ԤH԰ѥ[OάO 1000zC";
	next;
	mes "[]";
	mes "nO˪ܡAv޳ike!";
	mes "Ԧܽ";
	next;
	mes "[JǶ^3131FF ѫǡ@";
	mes "еݦۤw ^000000";
	mes "ۤwǪܡA|۰ʩv޳";
	mes "ʦܳa!";
	next;
	mes "[]";
	mes "iJv޳åB}l˼ƭp";
	mes "DH^3131FF ̥ùB ^000000 A|L";
	mes "Ш̷ӱҫL";
	next;
	mes "[]";
	mes "^3131FF 6 ^000000 ";
	mes "oӮɶ@ؼЪܡAɶ";
	mes "oOD`n";
	next;
	mes "[]";
	mes "˳̫᪺BOSS";
	mes "^3131FF \ ^000000 |۰ʲʨUӳa";
	mes "^3131FF \ ^000000 u1iHO";
	mes "pGSbɭO@˷|QeX";
	mes "|۰}!";
	next;
	mes "[]";
	mes "bǱv޳I";
	mes "pGSpAv]|";
	mes "z1IIƷ@v!";
	next;
	mes "[]";
	mes "HWAӤHLV6079n!";
	mes "ߧYѥ[v޳";
	mes "ssOAUөBNOA!";
	close;
}

arena_room,53,48,2	script	AȤH ץq	730,{
	mes "[ץq]";
	mes "w!";
	mes "ӤH LV7089 v޳";
	mes " ץq Ӭzѻӽл!";
	mes "(...nڳo@بƱ)";
	mes "(...q...)";
	next;
	mes "[ץq]";
	mes "^3131FF ӤH LV7089 ^000000 O";
	mes "^FF0000 70 ^000000  ^FF0000 89 ^000000 iHѥ[";
	next;
	mes "[ץq]";
	mes "ѰǪaaӧC";
	mes "Fbv޳WQo";
	mes "ӳ]ߵŭ";
	mes "н̸!";
	next;
	mes "[ץq]";
	mes "ԤH԰ѥ[OάO 1000 zenyC";
	next;
	mes "[ץq]";
	mes "nO˪ܡAv޳ike!";
	mes "Ԧܽ";
	next;
	mes "[ץq]";
	mes "[JǶ^3131FF ѫǡ@";
	mes "еݦۤw ^000000";
	mes "ۤwǪܡA|۰ʩv޳";
	mes "ʦܳa!";
	next;
	mes "[ץq]";
	mes "iJv޳åB}l˼ƭp";
	mes "DH ^3131FF Ǵd ^000000 A|L";
	mes "Ш̷ӱҫL";
	next;
	mes "[ץq]";
	mes "^3131FF 7 ^000000 ";
	mes "oӮɶ@ؼЪܡAɶ";
	mes "oOD`n";
	next;
	mes "[ץq]";
	mes "˳̫᪺BOSS";
	mes "^3131FF \ ^000000 |۰ʲʨUӳa";
	mes "^3131FF \ ^000000 u1iHO";
	mes "pGSbɭO@˷|QeX";
	mes "|۰}!";
	next;
	mes "[ץq]";
	mes "bǱv޳I";
	mes "pGSpAv]|";
	mes "z1IIƷ@v!";
	next;
	mes "[ץq]";
	mes "즹!";
	mes "n}F?";
	close;
}

arena_room,147,49,2	script	쥻	727,{
	mes "[쥻]";
	mes "w~!!";
	mes "ӤH LV8099 v޳";
	mes " 쥻 Ӭzѻӽл!";
	mes "Qť??";
	next;
	emotion 28;
	mes "[쥻]";
	mes "@wnťAդF?...";
	mes "...L...";
	next;
	mes "[쥻]";
	mes "^3131FF ӤH LV8099 ^000000 O";
	mes "^FF0000 80 ^000000  ^FF0000 99 ^000000 iHѥ[";
	next;
	mes "[쥻]";
	mes "ӤH԰ѥ[OάO 1000 zenyC";
	next;
	mes "[쥻]";
	mes "[Jݫ^3131FF ѫṊ̀";
	mes "еݦۤw ^000000";
	mes "ۤwǪܡA|۰ʩv޳";
	mes "ʦܳa!";
	next;
	mes "[쥻]";
	mes "iJv޳åB}l˼ƭp";
	mes "DH ^3131FF  ^000000 A|L";
	mes "Ш̷ӱҫL";
	next;
	mes "[쥻]";
	mes "^3131FF 8 ^000000 ";
	mes "oӮɶ@ؼЪܡAɶ";
	mes "oOD`n";
	next;
	mes "[쥻]";
	mes "˳̫᪺BOSS";
	mes "^3131FF ԫ ^000000 |۰ʲʨUӳa";
	mes "^3131FF ԫ ^000000 u1iHO";
	mes "pGSbɭO@˷|QeX";
	mes "|۰}!";
	next;
	mes "[쥻]";
	mes "bǱv޳I";
	mes "pGSpAv]|";
	mes "z1IIƷ@v!";
	next;
	mes "[쥻]";
	mes "즹!";
	mes "n}F?";
	close;
}

arena_room,158,93,4	script	AȤH P	828,{
	mes "[P]";
	mes "w{A";
	mes "ڬOնDԼҦ";
	mes "HP@!!";
	mes "]նDԻPӤHҦǳ\P";
	mes "ЦnnťM!";
	next;
	mes "[P]";
	mes "^3131FF նD 000000 ڡB";
	mes "^FF0000 Lv10 ^000000  ^FF0000 Lv99 ^000000 ҥiJ";
	next;
	mes "[P]";
	mes "pG5Hզ";
	mes "Nѥ[";
	mes "ѥ[OάO1HO 1000 zenyC";
	next;
	mes "[P]";
	mes "AArenai";
	mes "ӻ";
	next;
	mes "[P]";
	mes "A^3131FF PBͲզ ^000000";
	mes "ԸɫǪ^3131FF ѫ ^000000Զ";
	mes "n?^3131FF  ^000000 ";
	mes "զ@~ѥ[Cն";
	mes "ѩ󤣬OP@ѥ[]oͪȯ";
	mes "oHBz";
	next;
	mes "[P]";
	mes "ѫǤAն";
	mes "^3131FF5 H ^000000niJѫǤ";
	next;
	mes "[P]";
	mes "bo̭n`NOAѫǤ";
	mes "նH~";
	mes "~VۨLHA]|@_";
	mes "Qǰeتa";
	mes "oIЪ`N!";
	next;
	mes "[P]";
	mes "bѫǵԤApGǽAFA";
	mes "N|ʥDHaϲʹLh";
	mes "HƶǤ@";
	mes "pGʤFADP@|q";
	mes "a϶ǰe^ԸɫǪa";
	next;
	mes "[P]";
	mes "}lնDԼҦɭԡA";
	mes "DH|ziCǶǺ";
	mes "DHOH۬ʳaPӤ@^FF0000 pG1H ^000000";
	mes "bɨOn!";
	next;
	mes "[P]";
	mes "}lնҦDԡA";
	mes "ӳa鶤bArena";
	mes "^3131FF úѥ[O ^000000ѥ[";
	next;
	mes "[P]";
	mes "ArenaeԸɫǪɶ^FF0000 1 ^000000";
	mes "oӽЪ`N";
	next;
	mes "[P]";
	mes "ArenaJPɡA";
	mes "ɶ}lp";
	mes "^3131FF Q qԭ ^000000|ܹL";
	mes "ȥFw";
	mes "H̫᪺Xfؼ";
	next;
	mes "[P]";
	mes "Lɶ^3131FF 10 ^000000@";
	mes "ShlɶiHO";
	mes "oIЪ`N@U";
	next;
	mes "[P]";
	mes "pG̫᪺BOSSжùL";
	mes "N|^3131FF ԫ ^000000";
	mes "^3131FF ԫ ^000000 1ɶiHֳt";
	mes "qArena";
	mes "I";
	next;
	mes "[P]";
	mes "bԫǻArenaI";
	mes "pGOp}A";
	mes "ArenaIN|t~v";
	mes "oIЯSO`N";
	next;
	mes "[P]";
	mes "pGնҦFFsOA";
	mes "^3131FF W ^000000N";
	mes "ObArenaOH";
	next;
	mes "[P]";
	mes "նHʤ֪";
	mes "N^FF0000 ॿ`O ^000000@";
	mes "ݮɤ@}lնҦA";
	mes "Hnѥ[~";
	next;
	mes "[P]";
	mes "HWOնҦ";
	mes "ݱzѥ[";
	close;
}

arena_room,158,82,1	script	AȤH ù#are	828,{
	emotion e_no1,0;
	mes "[ù]";
	mes "ӦnF!";
	mes "wA!!!";
	next;
	mes "[ù]";
	mes "AbQ̭||HOAߤw";
	mes "Ҫ ļ wa? a? Oo˧a?";
	next;
	mes "[ù]";
	if(getmapusers("force_1-2")) {
		emotion e_oh,0;
		mes " Y E S - !!";
		mes "~AbYHY!";
		next;
		mes "[ù]";
		mes "b@|ݦSHnAնA";
		mes "Pıa";
	}
	else {
		emotion e_x,0;
		mes "ڪ^O..";
		mes "......................";
		mes " N O - !!!!!!!";
		mes "{bWX!";
	}
	close;
}

sec_in02,72,180,3	script	ȹp ޲z#arena	802,{
	input .@arena;
	if(!.@arena) {
		mes "[ȹp ޲z]";
		mes "ROw";
		close;
	}
	else if(.@arena == 1357) {
		mes "[ȹp ޲z]";
		mes "п";
		next;
		switch( select( "Restart arena:Rearrange the Ranking Time")) {
		case 1:
			switch( select( "lvl 50:lvl 60:lvl 70:lvl 80:Ҧ"))  {
			case 1:
				set .@arena,50;
				break;
			case 2:
				set .@arena,60;
				break;
			case 3:
				set .@arena,70;
				break;
			case 4:
				set .@arena,80;
				break;
			case 5:
				mes "[ȹp ޲z]";
				mes "== `N ==";
				mes "You have chosen to restart party arena stage.";
				mes "Do you wish to proceed?";
				next;
				switch( select( "Yes:No")) {
				case 1:
					donpcevent "Ponox::Onstart";
					mes "[ȹp ޲z]";
					mes "The arena stage has been successfuly reactivated.";
					close;
				case 2:
					mes "[ȹp ޲z]";
					mes "Command has been canceled.";
					close;
				}
			}
			mes "[ȹp ޲z]";
			mes "== `N ==";
			mes "You have chosen to restart lvl "+.@arena+" arena stage.";
			mes "Do you wish to proceed?";
			next;
			switch( select( "Yes:No")) {
			case 1:
				donpcevent "lvl "+.@arena+"s Waiting Room::Onstart";
				mes "[ȹp ޲z]";
				mes "The arena stage has been successfuly reactivated.";
				close;
			case 2:
				mes "[ȹp ޲z]";
				mes "Command has been canceled.";
				close;
			}
		case 2:
			mes "[ȹp ޲z]";
			mes "== `N ==";
			mes "^CE0000You have chosen to rearrange the ranking time. Make sure this is not a good decision unless if something serious was happened!^000000";
			next;
			mes "[ȹp ޲z]";
			mes "Are you sure you want to rearrange the ranking time?";
			next;
			switch( select( "No:Yes")) {
			case 1:
				mes "[ȹp ޲z]";
				mes "Phew~ :)";
				close;
			case 2:
				switch( select( "lvl 50:lvl 60:lvl 70:lvl 80:Party Mode")) {
				case 1:
					mes "[ȹp ޲z]";
					mes "Please enter 0 to cancel.";
					mes "If not, please write within 400 letters.";
					next;
					input .@arenamin;
					set $top_50min,.@arenamin;
					input .@arenasec;
					set $top_50sec,.@arenasec;
					mes "[ȹp ޲z]";
					mes "Current lvl 50 ranker's play time has been rearranged to ^FF0000"+$top_50min+"^000000 minutes and ^FF0000"+$top_50sec+"^000000 seconds.";
					close;
				case 2:
					mes "[ȹp ޲z]";
					mes "Please enter 0 to cancel.";
					mes "If not, please write within 400 letters.";
					next;
					input .@arenamin;
					set $top_60min,.@arenamin;
					input .@arenasec;
					set $top_60sec,.@arenasec;
					mes "[ȹp ޲z]";
					mes "Current lvl 60 ranker's play time has been rearranged to ^FF0000"+$top_60min+"^000000 minutes and ^FF0000"+$top_60sec+"^000000 seconds.";
					close;
				case 3:
					mes "[ȹp ޲z]";
					mes "Please enter 0 to cancel.";
					mes "If not, please write within 400 letters.";
					next;
					input .@arenamin;
					set $top_70min,.@arenamin;
					input .@arenasec;
					set $top_70sec,.@arenasec;
					mes "[ȹp ޲z]";
					mes "Current lvl 70 ranker's play time has been rearranged to ^FF0000"+$top_70min+"^000000 minutes and ^FF0000"+$top_70sec+"^000000 seconds.";
					close;
				case 4:
					mes "[ȹp ޲z]";
					mes "Please enter 0 to cancel.";
					mes "If not, please write within 400 letters.";
					next;
					input .@arenamin;
					set $top_80min,.@arenamin;
					input .@arenasec;
					set $top_80sec,.@arenasec;
					mes "[ȹp ޲z]";
					mes "Current lvl 80 ranker's play time has been rearranged to ^FF0000"+$top_80min+"^000000 minutes and ^FF0000"+$top_80sec+"^000000 seconds.";
					close;
				case 5:
					mes "[ȹp ޲z]";
					mes "Please enter 0 to cancel.";
					mes "If not, please write within 400 letters.";
					next;
					input .@arenamin;
					set $top_ptmin,.@arenamin;
					input .@arenasec;
					set $top_ptsec,.@arenasec;
					mes "[ȹp ޲z]";
					mes "Current party ranker's play time has been rearranged to ^FF0000"+$top_ptmin+"^000000 minutes and ^FF0000"+$top_ptsec+"^000000 seconds.";
					close;
				}
			}
		}
	}
	mes "Password is incorrect.";
	close;
}

sec_in02,79,171,3	script	 ޲z#arena	802,{
	input .@arena;
	if(!.@arena) {
		mes "[ ޲z]";
		mes "ROw";
		close;
	}
	else if(.@arena == 1357) {
		mes "[ ޲z]";
		mes "AܤF' ^0000FF}/ǰeHﶵ^000000 '";
		next;
		switch( select( "::}" ) ) {
		case 1:
			mes "[ ޲z]";
			mes "w";
			close;
		case 2:
			mes "[ ޲z]";
			mes "NPCw";
			disablenpc "Ŷʮv#arena";
			close;
		case 3:
			mes "[ ޲z]";
			mes "NPCw}";
			enablenpc "Ŷʮv#arena";
			close;
		}
	}
	mes "[ ޲z]";
	mes "KX~";
	close;
}

arena_room,105,93,2	script	Ŷʮv#arena	55,{
	mes "[Ŷʮv]";
	mes "zʨArenaLŶA";
	mes "znh?";
	next;
	if(select("h:h")==1) {
		mes "[Ŷʮv]";
		mes "n.. nnۧڧa";
		close2;
		warp "prt_are_in",60,14;
		end;
	}
	mes "[Ŷʮv]";
	mes "ܤ߷NܡAHɨӧڧa";
	close;
}

prt_are_in,98,14,3	script	g#arena	728,{
	if(checkweight(526,5) != 1) {
		mes "- е@U! -";
		mes "- zWaӦhFF! -";
		mes "- нTw@Utq! -";
		close;
	}
	mes "[g]";
	mes "zn!";
	mes "ڬOArenaIƪ洫";
	mes "tdH g ";
	next;
	mes "[g]";
	mes "uo̡AzoArenaI";
	mes "iH洫pتI";
	mes "F!";
	mes "zƱӪAȶ?";
	next;
	switch( select( "~洫:gȥ洫:Qv:T{ArenaI" ) ) {
	case 1:
		mes "[g]";
		mes "Ӫ~n洫??";
		next;
		switch( select( "e::LԪG:զֲĤ:үS:Ѧa:ѦaG:cl:c:¦U" )) {
		case 1: callfunc "Func_Are_Rew",518,5,20;
		case 2: callfunc "Func_Are_Rew",526,5,30;
		case 3: callfunc "Func_Are_Rew",522,5,30;
		case 4: callfunc "Func_Are_Rew",547,8,30;
		case 5: callfunc "Func_Are_Rew",605,3,20;
		case 6: callfunc "Func_Are_Rew",608,1,20;
		case 7: callfunc "Func_Are_Rew",607,1,40;
		case 8: callfunc "Func_Are_Rew",603,1,100;
		case 9: callfunc "Func_Are_Rew",617,1,300;
		case 10: callfunc "Func_Are_Rew",616,1,1000;
		}
	case 2:
		mes "[g]";
		mes "ArenaIƷ@gȴ!";
		mes "bɻݭn40IArenaI";
		next;
		switch( select( ":Tw" ) ) {
		case 1:
			mes "[g]";
			mes "洫{ǤF!";
			close;
		case 2:
			if(arena_point < 40) {
				mes "[g]";
				mes "ArenaIƤ";
				mes "нT{ҦI";
				close;
			}
			set arena_point,arena_point -40;
			if(BaseLevel < 70) getexp 3000,0;
			else if(BaseLevel < 80) getexp 9000,0;
			else if(BaseLevel < 90) getexp 10000,0;
			else if(BaseLevel < 100) getexp 30000,0;
			mes "[g]";	
			mes "ArenaIƤwg";
			mes "⦨gȤF!";
			close;
		}
	case 3:
		mes "[g]";
		mes "Ʊv !";
		next;
		switch( select( "Ov?:vo")) {
		case 1:
			mes "[g]";
			mes "bڥkݱoӱ?";
			next;
			mes "[g]";
			mes "bӼӱPƱ檺 NPC ۩I";
			mes "]b 1 AiHۥѪ";
			mes "ɱϥΩ\ध";
			mes "ɨֽ᪺!";
			next;
			mes "[g]";
			mes "vɡANPC|\XUؤP";
			mes "ҥHЧǮɶA";
			mes "U֪UANPCX!";
			close;
		case 2:
			if($arenapic) {
				mes "[g]";
				mes "ӤvCеyL";
				close;
			}
			mes "[g]";
			mes "Q򨺤@vAпĶNPC.";
			mes "NPCuX{1A";
			mes "ݭn10IArenaI!";
			next;
			switch( select( "ڭS:·t:F::wjԨk:FZh:BMh:ָ̮:pk:ڤO" )) {
			case 1: set $@arenapic,1039; break;
			case 2: set $@arenapic,1272; break;
			case 3: set $@arenapic,1046; break;
			case 4: set $@arenapic,1115; break;
			case 5: set $@arenapic,1389; break;
			case 6: set $@arenapic,1492; break;
			case 7: set $@arenapic,1251; break;
			case 8: set $@arenapic,1159; break;
			case 9: set $@arenapic,6969; break;
			case 10: set $@arenapic,7777; break;
			}
			if(arena_point < 10) {
				mes "[g]";
				mes "ArenaIƤ";
				mes "нT{ҦI";
				close;
			}
			mes "[g]";
			if($@arenapic == 6969) mes "niRpkĭ̥ө۩I?";
			else if($@arenapic == 7777) mes "nkZө۩I?";
			else mes "n"+getmonsterinfo($@arenapic,0)+"ө۩I?";
			next;
			switch( select( "O:" ) ) {
			case 1:
				set arena_point,arena_point -10;
				set $arenapic,1;
				enablenpc "#arena_"+$@arenapic+"";
				movenpc "#arena_"+$@arenapic+"",96,28;
				if($@arenapic == 6969) {
					enablenpc "#arena_ss_2";
					enablenpc "#arena_ss_3";
					enablenpc "#arena_ss_4";
				}
				donpcevent "npctime#arena::OnStart";
				mes "[g]";
				mes "Thank you.";
				close;
			case 2:
				mes "[g]";
				mes "Would you like to consider a little longer?";
				close;
			}
		}
	case 4:
		mes "[g]";
		mes "Let me check "+strcharinfo(0)+"'s current arena points.";
		next;
		mes "[g]";
		mes ""+strcharinfo(0)+" has total ^3131FF"+arena_point+"^000000 points.";
		close;
	}

OnInit:
	set $arenapic,0;
	end;
}

prt_are_in,1,1,5	script	#arena_1039	1039,{
	end;
	
OnInit:
	disablenpc "#arena_6969";
	disablenpc "#arena_ss_2";
	disablenpc "#arena_ss_3";
	disablenpc "#arena_ss_4";
	disablenpc "#arena_1272";
	disablenpc "#arena_1046";
	disablenpc "#arena_1115";
	disablenpc "#arena_1389";
	disablenpc "#arena_1492";
	disablenpc "#arena_1251";
	disablenpc "#arena_1159";
	disablenpc "#arena_7777";
	disablenpc "#arena_1039";
	end;

OnHeart:
	emotion e_lv,0;
	end;
OnSci:
	emotion e_scissors,0;
	end;
OnBest:
	emotion e_no1,0;
	end;
OnOmg:
	emotion e_omg,0;
	end;
OnKik:
	emotion e_gg,0;
	end;
OnKis:
	emotion e_kis,0;
	end;
}

prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_6969	714
prt_are_in,94,26,5	duplicate(#arena_1039)	#arena_ss_2	714
prt_are_in,100,28,3	duplicate(#arena_1039)	#arena_ss_3	714
prt_are_in,102,26,3	duplicate(#arena_1039)	#arena_ss_4	714
prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_1272	1272
prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_1046	1046
prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_1115	1115
prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_1389	1389
prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_1492	1492
prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_1251	1251
prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_1159	1159
prt_are_in,1,1,5	duplicate(#arena_1039)	#arena_7777	811

prt_are_in,130,30,3	script	npctime#arena	139,{

OnStop:
	stopnpctimer;
	end;
	
OnStart:
	initnpctimer;
	end;
	
OnTimer2000:
	mapannounce "prt_are_in","g : You should keep time with popping emotion icons~",1,0xFFCE00;
	end;
	
OnTimer5000:
	mapannounce "prt_are_in","Emoticon : /lv",1,0xFFCE00;
	end;
	
OnTimer7000:
	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
	end;
	
OnTimer8000:
	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
	end;
	
OnTimer9000:
	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
	end;
	
OnTimer10000:
	mapannounce "prt_are_in"," ",1,0xFFCE00;
	donpcevent "#arena_"+$@arenapic+"::OnHeart";
	if($@arenapic == 6969) {
		donpcevent "#arena_ss_2::OnHeart";
		donpcevent "#arena_ss_3::OnHeart";
		donpcevent "#arena_ss_4::OnHeart";
	}
	end;
	
OnTimer15000:
	mapannounce "prt_are_in","Emoticon : /gawi",1,0xFFCE00;
	end;
	
OnTimer17000:
	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
	end;
	
OnTimer18000:
	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
	end;
	
OnTimer19000:
	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
	end;
	
OnTimer20000:
	mapannounce "prt_are_in"," ",1,0xFFCE00;
	donpcevent "#arena_"+$@arenapic+"::OnSci";
	if($@arenapic == 6969) {
		donpcevent "#arena_ss_2::OnSci";
		donpcevent "#arena_ss_3::OnSci";
		donpcevent "#arena_ss_4::OnSci";
	}
	end;
	
OnTimer25000:
	mapannounce "prt_are_in","Emoticon : /no1",1,0xFFCE00;
	end;
	
OnTimer27000:
	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
	end;
	
OnTimer28000:
	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
	end;
	
OnTimer29000:
	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
	end;
	
OnTimer30000:
	mapannounce "prt_are_in"," ",1,0xFFCE00;
	donpcevent "#arena_"+$@arenapic+"::OnBest";
	if($@arenapic == 6969) {
		donpcevent "#arena_ss_2::OnBest";
		donpcevent "#arena_ss_3::OnBest";
		donpcevent "#arena_ss_4::OnBest";
	}
	end;
	
OnTimer35000:
	mapannounce "prt_are_in","Emoticon : /huk",1,0xFFCE00;
	end;
	
OnTimer37000:
	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
	end;
	
OnTimer38000:
	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
	end;
	
OnTimer39000:
	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
	end;
	
OnTimer40000:
	mapannounce "prt_are_in"," ",1,0xFFCE00;
	donpcevent "#arena_"+$@arenapic+"::OnOmg";
	if($@arenapic == 6969) {
		donpcevent "#arena_ss_2::OnOmg";
		donpcevent "#arena_ss_3::OnOmg";
		donpcevent "#arena_ss_4::OnOmg";
	}
	end;
	
OnTimer45000:
	mapannounce "prt_are_in","Emoticon : /gg",1,0xFFCE00;
	end;
	
OnTimer47000:
	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
	end;
	
OnTimer48000:
	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
	end;
	
OnTimer49000:
	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
	end;
	
OnTimer50000:
	mapannounce "prt_are_in"," ",1,0xFFCE00;
	donpcevent "#arena_"+$@arenapic+"::OnKik";
	if($@arenapic == 6969)
	{
		donpcevent "#arena_ss_2::OnKik";
		donpcevent "#arena_ss_3::OnKik";
		donpcevent "#arena_ss_4::OnKik";
	}
	end;
	
OnTimer55000:
	mapannounce "prt_are_in","Emoticon : /kis",1,0xFFCE00;
	end;
	
OnTimer57000:
	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
	end;

OnTimer58000:
	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
	end;
	
OnTimer59000:
	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
	end;
	
OnTimer60000:
	mapannounce "prt_are_in"," ",1,0xFFCE00;
	donpcevent "#arena_"+$@arenapic+"::OnKis";
	if($@arenapic == 6969)
	{
		donpcevent "#arena_ss_2::OnKis";
		donpcevent "#arena_ss_3::OnKis";
		donpcevent "#arena_ss_4::OnKis";
	}
	end;
	
OnTimer62000:
	mapannounce "prt_are_in","Time is over. Thank you for using my services.",1,0xFFCE00;
	movenpc "#arena_"+$@arenapic+"",1,1;
	donpcevent "#arena_1039::OnInit";
	set $arenapic,0;
	stopnpctimer;
	end;
}

sec_in02,72,171,3	script	Picture Manager#arena	802,{
	input .@arena;
	if(!.@arena) {
		mes "[Picture Manager]";
		mes "Command has been canceled.";
		close;
	}
	else if(.@arena == 1357) {
		mes "[Picture Manager]";
		mes "Would you like to reset Picture Reward variable to 0?";
		next;
		switch( select( "Cancel","Yes" ) ) {
		case 1:
			mes "[Picture Manager]";
			mes "You have canceled your request.";
			close;
		case 2:
			mes "[Picture Manager]";
			mes "Picture rewarding reseted.";
			set $arenapic,0;
			close;
		}
	}
	mes "[Picture Manager]";
	mes "Password is incorrect.";
	close;
}

sec_in02,76,176,5	script	Live Broadcast#arena	802,{
	mes "[Live Broadcast]";
	mes "Currently there are "+getmapusers("force_1-1")+" people in lvl 50s map.";
	mes "Currently there are "+getmapusers("force_2-1")+" people in lvl 60s map.";
	mes "Currently there are "+getmapusers("force_3-1")+" people in lvl 70s map.";
	mes "Currently there are "+getmapusers("force_4-1")+" people in lvl 80s map.";
	mes "Currently there are "+getmapusers("force_1-2")+" people in party map.";
	mes "Currently there are "+getmapusers("arena_room")+" people in the waiting room.";
	close;
}

function	script	Func_Are_Rew	{
	mes "[g]";
	mes "Would you like to exchange your arena points with "+getitemname(getarg(0))+"?";
	mes "You can exchange ^3131FF"+getarg(2)+" arena points with "+getarg(1)+" "+getitemname(getarg(0))+"^000000.";
	mes "If you wish to cancel, please enter 0. If you don't, please enter how many ^3131FFtimes^000000 of arena points you wish to spend.";
	next;
	input .@reward;
	if(!.@reward) {
		mes "[g]";
		mes "You have canceled your request.";
		close;
	}
	else if(.@reward > 1500) {
		mes "[g]";
		mes "You have exceeded the maximum capacity.";
		close;
	}
	if(arena_point < .@reward * getarg(2)) {
		mes "[g]";
		mes "You do not have enough arena points.";
		mes "Please check the total amount of arena points you have.";
		close;
	}
	set arena_point,arena_point - (.@reward * getarg(2));
	getitem getarg(0),.@reward * getarg(1);
	mes "[g]";
	mes "Thank you, please come again.";
	close;
}

arena_room,63,126,0	script	LevelCheck#50	139,5,5,{

OnTouch:
	if(BaseLevel < 50 || BaseLevel > 69) {
		mes "[AȤH ]";
		mes "I'm sorry but that place is";
		mes "only available to people from";
		mes "level ^FF000050^000000 to ^FF000069^000000. I'm afraid you";
		mes "have to leave immediately.";
		mes "Please proceed to your proper";
		mes "arenas. Have fun !";
		close2;
		warp "arena_room",100,75;
	}
	else if(Zeny < 1000) {
		mes "[AȤH ]";
		mes "Oh! That's too bad!";
		mes "You have the required level";
		mes "to attempt this arena but";
		mes "it costs 1000 zeny to enter.";
		mes "Please come back when you'll";
		mes "have them!";
		close2;
		warp "arena_room",100,75;
	}
	end;
}

arena_room,49,87,0	script	LevelCheck#60	139,5,5,{

OnTouch:
	if(BaseLevel < 60 || BaseLevel > 79) {
		mes "[Helper Ben]";
		mes "I'm sorry but that place is";
		mes "only available to people from";
		mes "level ^FF000060^000000 to ^FF000079^000000. I'm afraid you";
		mes "have to leave immediately.";
		mes "Please proceed to your proper";
		mes "arenas. Have fun !";
		close2;
		warp "arena_room",100,75;
	}
	else if(Zeny < 1000) {
		mes "[Helper Ben]";
		mes "Oh! That's too bad!";
		mes "You have the required level";
		mes "to attempt this arena but";
		mes "it costs 1000 zeny to enter.";
		mes "Please come back when you'll";
		mes "have them!";
		close2;
		warp "arena_room",100,75;
	}
	end;
}

arena_room,63,53,0	script	LevelCheck#70	139,5,5,{

OnTouch:
	if(BaseLevel < 70 || BaseLevel > 89) {
		mes "[Helper Vicious]";
		mes "I'm sorry but that place is";
		mes "only available to people from";
		mes "level ^FF000070^000000 to ^FF000089^000000. I'm afraid you";
		mes "have to leave immediately.";
		mes "Please proceed to your proper";
		mes "arenas. Have fun !";
		close2;
		warp "arena_room",100,75;
	}
	else if(Zeny < 1000) {
		mes "[Helper Vicious]";
		mes "Oh! That's too bad!";
		mes "You have the required level";
		mes "to attempt this arena but";
		mes "it costs 1000 zeny to enter.";
		mes "Please come back when you'll";
		mes "have them!";
		close2;
		warp "arena_room",100,75;
	}
	end;
}

arena_room,136,53,0	script	LevelCheck#80	139,5,5,{

OnTouch:
	if(BaseLevel < 80) {
		mes "[Helper Epin]";
		mes "I'm sorry but that place is";
		mes "only available to people from";
		mes "level ^FF000080^000000 to ^FF000099^000000. I'm afraid you";
		mes "have to leave immediately.";
		mes "Please proceed to your proper";
		mes "arenas. Have fun !";
		close2;
		warp "arena_room",100,75;
	}
	else if(Zeny < 1000) {
		mes "[Helper Epin]";
		mes "Oh! That's too bad!";
		mes "You have the required level";
		mes "to attempt this arena but";
		mes "it costs 1000 zeny to enter.";
		mes "Please come back when you'll";
		mes "have them!";
		close2;
		warp "arena_room",100,75;
	}
	end;
}